terminal length 0
assign mta1:
connect <tex.pascal>
copy tapeio.do mta1:
tapeio
default /unit:1/format:tprint
write tex.pas 1
write pretex.pas next
write sysdep.pas next
quit
connect <tex.fonts>
tapeio
default /unit:1/format:tprint
write cmathx.tmf
write cmathx.1000pxl
write cmathx.mf
write cmr10.tfm
write cmr10.1000pxl
write cmr10.mf
write cmi10.tfm
write cmi10.1000pxl
write cmi10.mf
write cmsy10.tfm
write cmsy10.1000pxl
write cmsy10.mf
write cms10.tfm
write cms10.1000pxl
write cms10.mf
write cmb10.tfm
write cmb10.1000pxl
write cmb10.mf
write cmtt.tfm
write cmtt.1000pxl
write cmtt.mf
write cmti10.tfm
write cmti10.1000pxl
write cmti10.mf
write cmsc10.tfm
write cmsc10.1000pxl
write cmsc10.mf

write cmr9.tfm
write cmr9.1000pxl
write cmr9.mf
write cmu9.tfm
write cmu9.1000pxl
write cmu9.mf
write cmi9.tfm
write cmi9.1000pxl
write cmi9.mf
write cmsy9.tfm
write cmsy9.1000pxl
write cmsy9.mf
write cms9.tfm
write cms9.1000pxl
write cms9.mf
write cmb9.tfm
write cmb9.1000pxl
write cmb9.mf
write cmti9.tfm
write cmti9.1000pxl
write cmti9.mf
write cmscr9.tfm
write cmscr9.1000pxl
write cmscr9.mf


% font definitions for 8, 9, and 10 point fonts and friends
\font @←cmathx
\font a←cmr10  \font b←cmr9   \font c←cmr8  \font d←cmr7  \font e←cmr6  \font f←cmr5
\font A←cmss10 \font B←cmss9  \font C←cmss8
\font g←cmi10  \font h←cmi9   \font i←cmi8  \font j←cmi7  \font k←cmi6  \font l←cmi5
\font G←cmti10 \font H←cmti9  \font I←cmti8
\font m←cmsc10 \font M←cmsc9
\font n←cms10  \font o←cms9   \font p←cms8
\font N←cmsss  \font O←cmsss9 \font P←cmsss8
\font q←cmb10  \font r←cmb9   \font s←cmb8
\font Q←cmssb  \font R←cmss9b \font S←cmss8B
\font t←cmtt   \font T←cmtt9  \font U←cmtt8
\font u←cmsy10 \font v←cmsy9  \font w←cmsy8 \font x←cmsy7 \font y←cmsy6 \font z←cmsy5